home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples2 / LMB / LMB1.p next >
Encoding:
Text File  |  1997-05-06  |  306 b   |  28 lines
  1. Program LMBdemo;
  2.  
  3. Function LeftMouseButton: Boolean;
  4. Begin
  5. {$A
  6. ;---
  7.     moveq    #0,d0
  8.     btst    #6,$bfe001
  9.     bne.s    notpressed
  10. pressed:
  11.     moveq    #-1,d0
  12.  
  13. notpressed:
  14. ;---
  15. }
  16. end;
  17.  
  18.  
  19. Begin
  20.  
  21.   Repeat
  22.  
  23.     write("\n\n  LMB-Demo by Diesel 4 use with PCQ\n\n   press left mousebutton !!!\n\n");
  24.  
  25.   until LeftMousebutton;
  26.  
  27. end.
  28.